home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / dump3-basic.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  927b  |  29 lines
  1. 10 POKE53280,9:POKE53281,12:PRINT"[147][144]             BOB SWIFT'S":POKE198,0
  2. 20 PRINT"     HIGH RESOLUTION SCREEN DUMP"
  3. 30 PRINT"     ***************************"
  4. 40 PRINTTAB(7)"I - INPUT NEW IMAGE"
  5. 50 PRINTTAB(7)"V - VIEW EXISTING IMAGE"
  6. 60 PRINTTAB(7)"P - PRINT EXISTING IMAGE"
  7. 70 PRINTTAB(7)"Q - QUIT PROGRAM":POKE198,0
  8. 80 GETA$:IFA$<>"I"ANDA$<>"V"ANDA$<>"P"ANDA$<>"Q"THEN80
  9. 90 IFA$="Q"THENPRINT"[147]";:END
  10. 100 IFA$="I"THENPRINT"[147]INPUT NEW IMAGE":INPUT"PROGRAM TITLE";A$:LOADA$,8,1
  11. 110 IFA$="P"THEN170
  12. 120 PRINT"[147]":POKE53265,PEEK(53265)OR32:POKE53272,27
  13. 130 FORI=1024TO2023:POKEI,1:NEXT:POKE198,0
  14. 140 FORI=1TO3000:GETA$:IFA$<>""THENI=3000
  15. 150 NEXT
  16. 160 POKE53265,27:POKE53272,21:GOTO10
  17. 170 PRINT"[147]PRINT IMAGE":PRINT"***********"
  18. 180 PRINT"N[146]ORMAL OR R[146]EVERSE ?";:POKE198,0
  19. 190 GETA$:IFA$<>"N"ANDA$<>"R"THEN190
  20. 200 R=0:PRINTA$:IFA$="R"THENR=1
  21. 210 PRINT"S[146]MALL OR L[146]ARGE ?";:POKE198,0
  22. 220 GETA$:IFA$<>"S"ANDA$<>"L"THEN220
  23. 230 S=0:PRINTA$:IFA$="L"THENS=1:E=0:GOTO270
  24. 240 PRINT"EXPAND IN 'Y' DIRECTION ?";:POKE198,0
  25. 250 GETA$:IFA$<>"Y"ANDA$<>"N"THEN250
  26. 260 PRINTA$:E=0:IFA$="Y"THENE=1
  27. 270 POKE49154,S:POKE49153,E
  28. 280 POKE49152,R:SYS49155:GOTO10
  29.